home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tp.d64 / xmas.d (.txt) < prev   
Commodore BASIC  |  2007-02-11  |  3KB  |  152 lines
  1. 5 PRINT"[147]"
  2. 10 IF F=0THEN F=1:LOAD"PIC.XMAS.D",8,1
  3. 20 FORL=0TO107:READA:POKE820+L,A:NEXT
  4. 30 POKE53280,0:POKE53281,1:POKE787,0
  5. 40 POKE53272,PEEK(53272)OR8
  6. 50 POKE53270,PEEK(53270)OR16
  7. 60 POKE53265,PEEK(53265)OR32
  8. 70 SYS820
  9. 80 GOTO500
  10. 100 DATA169,240,162,24,133,251,134,252,169,0,162,4,133
  11. 110 DATA253,134,254,162,3,160,0,177,251,145,253,200,208,249,230,252,230
  12. 120 DATA254,202,208,240,177,251,145,253,200,192,232,208,247,173,19,3,201
  13. 130 DATA187,240,24,169,187,141,19,3,169,216,162,28,133,251,134,252,169
  14. 140 DATA0,162,216,133,253,134,254,76,68,3,169,32,162,192,160,0,134
  15. 150 DATA251,132,253,133,252,133,254,162,32,160,0,177,251,145,253,200,208
  16. 160 DATA249,230,252,230,254,202,208,242,96,234
  17. 500 REM MAIN
  18. 501 FORP=54272TO54296:POKEP,0:NEXTP
  19. 502 POKE54296,15
  20. 503 POKE54277,9:POKE54278,5
  21. 505 FORZ=0TO51
  22. 510 READA:READB:READC:READD
  23. 520 POKE54272,A:POKE54273,B
  24. 522 POKE54276,17
  25. 525 FORT=1TOC:NEXTT
  26. 527 POKE54276,16
  27. 530 FORT=1TOD:NEXTT
  28. 550 NEXTZ
  29. 600 REM
  30. 605 FORZ=0TO52
  31. 610 READE:READF:READG:READH
  32. 620 POKE54272,E:POKE54273,F
  33. 622 POKE54276,17
  34. 625 FORT=1TOG:NEXTT
  35. 627 POKE54276,16
  36. 630 FORT=1TOH:NEXTT
  37. 640 IFZ=49THENPOKE54277,64:POKE54278,64
  38. 650 NEXTZ
  39. 680 POKE53265,PEEK(53265)AND223
  40. 685 POKE53272,20
  41. 690 PRINT"[147]":END
  42. 10000 REM BACKROUND NOTES
  43. 10005 POKE54284,64:POKE54285,64
  44. 10010 IFZ=11THENPOKE54279,10:POKE54280,5:POKE54283,33
  45. 10011 IFZ=15THENPOKE54279,10:POKE54280,10
  46. 10015 IFZ=19THENPOKE54279,15:POKE54280,15
  47. 10020 IFZ=21THENPOKE54279,13:POKE54280,13
  48. 10025 IFZ=23THENPOKE54279,11:POKE54280,11
  49. 10030 IFZ=24THENPOKE54283,32
  50. 10999 RETURN
  51. 50000 DATA 214,28,80,30
  52. 50001 DATA 214,28,80,30
  53. 50002 DATA 214,28,180,80
  54. 50003 DATA 214,28,80,30
  55. 50004 DATA 214,28,80,30
  56. 50005 DATA 214,28,180,80
  57. 50006 DATA 214,28,80,30
  58. 50007 DATA 94,32,80,30
  59. 50008 DATA 177,25,180,30
  60. 50009 DATA 227,22,30,5
  61. 50010 DATA 214,28,230,300
  62. 50011 DATA 75,34,80,30
  63. 50012 DATA 75,34,80,30
  64. 50013 DATA 75,34,180,55
  65. 50014 DATA 75,34,50,1
  66. 50015 DATA 75,34,80,30
  67. 50016 DATA 214,28,80,30
  68. 50017 DATA 214,28,180,70
  69. 50018 DATA 177,25,70,1
  70. 50019 DATA 94,32,80,30
  71. 50020 DATA 214,28,80,30
  72. 50021 DATA 177,25,80,30
  73. 50022 DATA 227,22,80,30
  74. 50023 DATA 154,21,115,200,205,10,80,30,114,11,80,30
  75. 50024 DATA 216,12,80,30
  76. 50025 DATA 107,14,80,30
  77. 50026 DATA 47,16,80,30
  78. 50027 DATA 107,14,80,30
  79. 50028 DATA 216,12,300,30
  80. 50029 DATA 216,12,50,1
  81. 50030 DATA 216,12,50,1
  82. 50031 DATA 216,12,80,30
  83. 50032 DATA 107,14,80,30
  84. 50033 DATA 47,16,80,30
  85. 50034 DATA 107,14,80,30
  86. 50035 DATA 216,12,300,30
  87. 50036 DATA 114,11,80,30
  88. 50037 DATA 216,12,80,30
  89. 50038 DATA 47,16,80,30
  90. 50039 DATA 107,14,80,30
  91. 50040 DATA 47,16,80,30
  92. 50041 DATA 47,16,80,30
  93. 50042 DATA 47,16,80,30
  94. 50043 DATA 107,14,80,30
  95. 50044 DATA 47,16,80,30
  96. 50045 DATA 107,14,80,30
  97. 50046 DATA 216,12,80,30
  98. 50047 DATA 114,11,80,30
  99. 50048 DATA 205,10,80,30
  100. 50049 DATA 37,17,300,80
  101. 60000 DATA 214,28,80,30
  102. 60001 DATA 214,28,80,30
  103. 60002 DATA 214,28,180,80
  104. 60003 DATA 214,28,80,30
  105. 60004 DATA 214,28,80,30
  106. 60005 DATA 214,28,180,80
  107. 60006 DATA 214,28,80,30
  108. 60007 DATA 94,32,80,30
  109. 60008 DATA 177,25,180,30
  110. 60009 DATA 227,22,30,5
  111. 60010 DATA 214,28,230,300
  112. 60011 DATA 75,34,80,30
  113. 60012 DATA 75,34,80,30
  114. 60013 DATA 75,34,180,55
  115. 60014 DATA 75,34,50,1
  116. 60015 DATA 75,34,80,30
  117. 60016 DATA 214,28,80,30
  118. 60017 DATA 214,28,180,70
  119. 60018 DATA 177,25,70,1
  120. 60019 DATA 94,32,80,30
  121. 60020 DATA 214,28,80,30
  122. 60021 DATA 177,25,80,30
  123. 60022 DATA 227,22,80,30
  124. 60023 DATA 154,21,115,200,205,10,80,30,114,11,80,30
  125. 60024 DATA 216,12,80,30
  126. 60025 DATA 107,14,80,30
  127. 60026 DATA 47,16,80,30
  128. 60027 DATA 107,14,80,30
  129. 60028 DATA 216,12,300,30
  130. 60029 DATA 216,12,50,1
  131. 60030 DATA 216,12,50,1
  132. 60031 DATA 216,12,80,30
  133. 60032 DATA 107,14,80,30
  134. 60033 DATA 47,16,80,30
  135. 60034 DATA 107,14,80,30
  136. 60035 DATA 216,12,300,30
  137. 60036 DATA 114,11,80,30
  138. 60037 DATA 216,12,80,30
  139. 60038 DATA 47,16,80,30
  140. 60039 DATA 107,14,80,30
  141. 60040 DATA 47,16,80,30
  142. 60041 DATA 47,16,80,30
  143. 60042 DATA 47,16,80,30
  144. 60043 DATA 107,14,80,30
  145. 60044 DATA 47,16,200,30
  146. 60045 DATA 107,14,200,30
  147. 60046 DATA 216,12,200,30
  148. 60047 DATA 114,11,200,30
  149. 60048 DATA 205,10,500,300
  150. 60049 DATA 177,25,80,30
  151. 60050 DATA 94,32,80,30
  152.